package Wix::Tag::Shortcut;

use parent qw/Wix::Tag/;

sub new() {
	my ($class, $args) = @_;
	
	my $self = Wix::Tag->new({TAG => 'Shortcut'});
	
	$self->addAttr('Id', $args->{ID});
	$self->addAttr('Name', $args->{NAME});
	$self->addAttr('Target', $args->{TARGET});
	$self->addAttr('Directory', $args->{DIRECTORY});
	$self->addAttr('WorkingDirectory', $args->{WORKINGDIRECTORY});
	$self->addAttr('Advertise', $args->{ADVERTISE});
	$self->addAttr('Icon', $args->{ICON});
	$self->addAttr('Arguments', $args->{ARGUMENTS});
	
	return bless($self, $class);
}

sub GetUninstall() {
	return Wix::Tag::Shortcut->new(
		{
			ID => 'UninstallProduct',
			NAME => 'Uninstall',
			TARGET => '[System64Folder]msiexec.exe',
			ARGUMENTS => '/x [ProductCode]',
		}
	);
}

1;